home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / clock chime (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  230b  |  9 lines
  1. 9400 rem **** clock chime ****
  2. 9410 s=54272:forl=0to24:pokes+l,0:next
  3. 9420 v=s+24:w=s+4:fu=s+1:fl=s:ad=s+5:sr=s+6:sl=s+14:su=s+15:pokev,15:pokead,15
  4. 9450 pokead,10:pokesr,64+11
  5. 9460 pokesu,10:pokesl,10
  6. 9470 pokefu,4:pokew,21:fort=1to50:next
  7. 9480 pokew,20:fort=1to1800:next
  8. 9490 goto9450
  9.